home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / newsgroups / misc.19981211-19990422 / 000383_news@watsun.cc.columbia.edu _Fri Mar 19 12:15:32 1999.msg < prev    next >
Internet Message Format  |  1999-04-21  |  4KB
  1. Return-Path: <news@watsun.cc.columbia.edu>
  2. Received: from newsmaster.cc.columbia.edu (newsmaster.cc.columbia.edu [128.59.59.30])
  3.     by watsun.cc.columbia.edu (8.8.5/8.8.5) with ESMTP id MAA22114
  4.     for <kermit.misc@watsun.cc.columbia.edu>; Fri, 19 Mar 1999 12:15:31 -0500 (EST)
  5. Received: (from news@localhost)
  6.     by newsmaster.cc.columbia.edu (8.8.5/8.8.5) id MAA21965
  7.     for kermit.misc@watsun.cc.columbia.edu; Fri, 19 Mar 1999 12:08:50 -0500 (EST)
  8. X-Authentication-Warning: newsmaster.cc.columbia.edu: news set sender to <news> using -f
  9. From: fdc@watsun.cc.columbia.edu (Frank da Cruz)
  10. Subject: Re: Associative Array in Kermit 95
  11. Date: 19 Mar 1999 17:08:49 GMT
  12. Organization: Columbia University
  13. Message-ID: <7cu0b1$lea$1@newsmaster.cc.columbia.edu>
  14. To: kermit.misc@watsun.cc.columbia.edu
  15.  
  16. In article <7cttsc$47f$1@nnrp1.dejanews.com>,  <dn5006@my-dejanews.com> wrote:
  17.  
  18. : Associative array is a very useful feature in scripting language, it enables
  19. : Perl, Tcl etc. the implementation of comlex data structures.  The following
  20. : script demonstrates that associative array can also be crafted in Kermit
  21. : 95. The script counts the unique words in a regular english, french, german,
  22. : etc. text file.
  23. : 
  24. : open read testfile.txt
  25. : if fail end 1 Can't open testfile.txt
  26. : assign \%n 0                                  ; init register
  27. : while true {
  28. :     read \%l                                  ; read each line
  29. :     if fail break                                ; until the end of file
  30. :     while > \flength(\%l) 0 {
  31. :         assign \%w \fbreak(\%l,{ })           ; split on space
  32. :         xif defined \m(\%w) {                 ; word already seen?
  33. :             _assign \%w \feval(\m(\%w) + 1)   ; incr count this word
  34. :         } else {
  35. :             _assign \%w 1                     ; init count this word
  36. :             increment \%n                     ; next register
  37. :             _assign \%n \%w                   ; register this word
  38. :         }
  39. :         assign \%l \fltrim(\fright(\%l,-
  40. :         \feval(\flength(\%l)-\flength(\%w)))) ; shift to next word
  41. :     }
  42. : }
  43. : for \%k 1 \%n 1 {
  44. :       assign \%w \m(\%k)                      ; get word from register
  45. :       echo <\m(\%w)> \%w                      ; display occurences
  46. : }
  47. : 
  48. : This approach avoids the use of array which has to be declared in advance.
  49. : The script does not take into account the non alphanumeric characters.
  50. : 
  51. : Dat Nguyen
  52. : Airline Telecommunications and Information Services
  53. : 770 Sherbrooke West
  54. : Montreal, Quebec
  55. : Canada H3A 1G1
  56. : Email dat.nguyen&sita.int
  57. : 
  58. Excellent!  I've had associative arrays on my list for quite a while, but
  59. the list so long and time so short.  I've reformatted your script to fit
  60. in 80 columns.
  61.  
  62. We plan to add a script library to the Kermit website -- this one will
  63. certainly go into it.  Other submissions are welcome too; send them in!
  64. (Be sure to document the Kermit program and version and other relevant
  65. info.)
  66.  
  67. A quick glance shows this script doesn't use any new (post-C-Kermit-6.0)
  68. features, some of which would make it simpler and faster, for example
  69. the new \fword() and \fsplit() functions for extracting words from strings,
  70. with specified break masks (e.g. to make sure punctuation does not count
  71. as part of word (e.g. "thing" and "thing.").  Also you can convert each
  72. word to lowercase with \flower() so "Thing", "thing", and "THING" count as
  73. the same word, etc.
  74.  
  75. Readers should take special note of the "_assign" verb, which is subtly
  76. different from "assign" (see p.457 of the manual).
  77.  
  78. - Frank